Code
customer_cohortdata_tbl <- read_rds("data/longsynth_customer_cohort_data_tbl.rds")
customer_cohortdata_tbl |> glimpse()Rows: 5,000
Columns: 5
$ customer_id <chr> "LFC201001_0001", "LFC201001_0002", "LFC201001_0003", …
$ cohort_qtr <chr> "2010 Q1", "2010 Q1", "2010 Q1", "2010 Q1", "2010 Q1",…
$ cohort_ym <chr> "2010 01", "2010 01", "2010 01", "2010 01", "2010 01",…
$ first_tnx_date <dttm> 2010-01-01 04:21:16, 2010-01-03 11:37:28, 2010-01-03 …
$ total_tnx_count <int> 3, 2, 9, 1, 4, 5, 80, 2, 3, 4, 16, 11, 22, 1, 2, 8, 4,…
Code
customer_transactions_tbl <- read_rds("data/longsynth_transaction_data_tbl.rds")
customer_transactions_tbl |> glimpse()Rows: 43,153
Columns: 7
$ customer_id <fct> LFC201001_0001, LFC201001_0003, LFC201001_0002, LFC20100…
$ tnx_timestamp <dttm> 2010-01-01 04:21:16, 2010-01-03 09:17:44, 2010-01-03 11…
$ tnx_dow <fct> Fri, Sun, Sun, Tue, Wed, Wed, Fri, Sat, Sun, Mon, Tue, T…
$ tnx_month <fct> Jan, Jan, Jan, Jan, Jan, Jan, Jan, Jan, Jan, Jan, Jan, J…
$ tnx_week <chr> "00", "00", "00", "01", "01", "01", "01", "01", "01", "0…
$ invoice_id <chr> "T20100101-0001", "T20100103-0001", "T20100103-0002", "T…
$ tnx_amount <dbl> 82.97, 174.89, 126.14, 121.05, 99.23, 238.19, 54.69, 116…
Code
customer_subset_id <- read_rds("data/longsynth_customer_subset_ids.rds")
customer_subset_id |> glimpse() Factor w/ 5000 levels "LFC201001_0001",..: 2 8 10 14 16 17 27 30 33 35 ...